Celestin Apprentice 5/Apprentice-Release5.iso/Environments/SmallEiffel 0.3.3/SmallEiffel PPC/lib_show/bench2/bench2.e

Text File | 1996-06-13 | 497 b | 31 lines | [TEXT/EDIT]

-- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C)
-- Dominique COLNET and Suzanne COLLIN -- [e-mail]
--
deferred class BENCH2
--
-- Are FIXED_ARRAY running faster than ARRAY ?
--

feature {NONE}

   cltn: COLLECTION[INTEGER] is
      deferred
      end;

   upper: INTEGER is 900000;

   bench is
      local
     i: INTEGER;
      do
     from
        i := cltn.upper - 1;
     until
        i = cltn.lower
     loop
        cltn.put(cltn.item(i-1),i);
        i := i - 1;
     end;
      end;
end